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CHAPTER  1 
INTRODUCTION 


The  Ada  implementation  described  above  was  tested  according  to  the  Ada 
Validation  Procedures  [Pro90]  against  the  Ada  Standard  [Ada83]  using  the 
current  Ada  Compiler  Validation  Capability  (ACVC).  This  Validation  Summary 
Report  (VSR)  gives  an  account  of  the  testing  of  this  Ada  implementation . 

For  any  technical  terms  used  in  this  report,  the  reader  is  referred  to 
[Pro90].  A  detailed  description  of  the  ACVC  may  be  found  in  the  current 
ACVC  User's  Guide  (UG89]. 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  Ada 
Certification  Body  may  make  full  and  free  public  disclosure  of  this  report. 
In  the  United  States,  this  is  provided  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply 
only  to  the  computers,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statements  set  forth  in  this  report  are 
accurate  and  complete,  or  that  the  subject  implementation  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies  of 
this  report  are  available  to  the  public  from  the  AVF  which  performed  this 
validation  or  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  VA  22161 

Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  which  performed  this  validation  or  to: 

Ada  Validation  Organization 

Computer  and  Software  Engineering  Division 

Institute  for  Defense  Analyses 

1801  North  Beauregard  Street 

Alexandria  VA  22311-1772 
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1.2  REFERENCES 

[Ada83]  Reference  Manual  for  the  Ada  Programming  Language, 

ANSI/MIL-STD-1815A,  February  1983  and  ISO  8652-1987. 

[Pro90]  Ada  Compiler  Validation  Procedures,  Version  2.1,  Ada  Joint 
Program  Office,  August  1990. 

[UG89]  Ada  Compiler  Validation  Capability  User's  Guide,  21  June  1989. 


1.3  A CVC  TEST  CLASSES 

Compliance  of  Ada  implementations  is  tested  by  means  of  the  A CVC.  The  ACVC 
contains  a  collection  of  test  programs  structured  into  six  test  classes:  A, 
B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies  the  class  to 
which  it  belongs.  Class  A,  C,  D,  and  E  tests  are  executable.  Class  B  and 
class  L  tests  are  expected  to  produce  errors  at  compile  time  and  link  time, 
respectively. 

Hie  executable  tests  are  written  in  a  self-checking  manner  and  produce  a 
PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the  result  when  they 
are  executed.  Three  Ada  library  units,  the  packages  REPORT  and  SPPRT13, 
and  the  procedure  CHECK  FILE  are  used  for  this  purpose.  Hie  package  REPORT 
also  provides  a  set  of  Identity  functions  used  to  defeat  some  compiler 
optimizations  allowed  by  the  Ada  Standard  that  would  circumvent  a  test 
objective.  Hie  package  SPPRT13  is  used  by  many  tests  for  Chapter  13  of  the 
Ada  Standard.  The  procedure  CHECK_FILE  is  used  to  check  the  contents  of 
text  files  written  by  some  of  the  Class  C  tests  for  Chapter  14  of  the  Ada 
Standard.  Hie  operation  of  REPORT  and  CHECKJFILE  is  checked  by  a  set  of 
executable  tests.  If  these  units  are  not  operating  correctly,  validation 
testing  is  discontinued. 

Class  B  tests  check  that  a  compiler  detects  illegal  language  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  compiled  and  the 
resulting  compilation  listing  is  examined  to  verify  that  all  violations  of 
the  Ada  Standard  are  detected.  Some  of  the  class  B  tests  contain  legal  Ada 
code  which  must  not  be  flagged  illegal  by  the  compiler.  This  behavior  is 
also  verified. 

Class  L  tests  check  that  an  Ada  implementation  correctly  detects  violation 
of  the  Ada  Standard  involving  multiple,  separately  compiled  units.  Errors 
are  expected  at  link  time,  and  execution  is  attempted. 

In  some  tests  of  the  ACVC,  certain  macro  strings  have  to  be  replaced  by 
implementation-specific  values  —  for  example,  the  largest  integer.  A  list 
of  the  values  used  for  this  implementation  is  provided  in  Appendix  A.  In 
addition  to  these  anticipated  test  modifications,  additional  changes  may  be 
required  to  remove  unforeseen  conflicts  between  the  tests  and 
implementation-dependent  characteristics.  Hie  modifications  required  for 
this  implementation  are  described  in  section  2.3. 
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For  each  Ada  implementation,  a  customized  test  suite  is  produced  by  the 
AVF.  This  customization  consists  of  making  the  modifications  described  in 
the  preceding  paragraph,  removing  withdrawn  tests  (see  section  2.1),  and 
possibly  removing  some  inapplicable  tests  (see  section  2.2  and  [UG89]). 

In  order  to  pass  an  ACVC  an  Ada  implementation  must  process  each  test  of 
the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERMS 

Ada  Compiler  The  software  and  any  needed  hardware  that  have  to  be  added 
to  a  given  host  and  target  computer  system  to  allow 
transformation  of  Ada  programs  into  executable  form  and 
execution  thereof. 

Ada  Compiler  The  means  for  testing  compliance  of  Ada  implementations. 
Validation  consisting  of  the  test  suite,  the  support  programs,  the  ACVC 

Capability  user's  guide  and  the  template  for  the  validation  summary 

(ACVC)  report. 

Ada  An  Ada  compiler  with  its  host  computer  system  and  its 

Implementation  target  computer  system. 

Ada  Joint  The  part  of  the  certification  body  which  provides  policy  and 

Program  guidance  for  the  Ada  certification  system. 

Office  (AJPO) 

Ada  The  part  of  the  certification  body  which  carries  out  the 

Validation  procedures  required  to  establish  the  compliance  of  an  Ada 
Facility  (AVF)  implementation. 

Ada  The  part  of  the  certification  body  that  provides  technical 

Validation  guidance  for  operations  of  the  Ada  certification  system. 

Organization 
(AVO) 

Compliance  of  The  ability  of  the  implementation  to  pass  an  ACVC  version, 
an  Ada 

Implementation 

A  functional  unit,  consisting  of  one  or  more  computers  and 
associated  software,  that  uses  common  storage  for  all  or 
part  of  a  program  and  also  for  all  or  part  of  the  data 
necessary  for  the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including  arithmetic 
operations  and  logic  operations;  and  that  can  execute 
programs  that  modify  themselves  during  execution.  A 
computer  system  may  be  a  stand-alone  unit  or  may  consist  of 
several  inter-connected  units. 


Computer 

System 
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Conformity 


Customer 


Declaration  of 
Conformance 


Host  Computer 
System 

Inapplicable 

test 

ISO 

LRM 


Operating 

System 


Target 

Computer 

System 

Validated  Ada 
Compiler 

Validated  Ada 
Implementation 

Validation 


Withdrawn 

test 


Fulfillment  by  a  product,  process,  or  service  of  all 
requirements  specified. 

An  individual  or  corporate  entity  who  enters  into  an 
agreement  with  an  AVF  which  specifies  the  terms  and 
conditions  for  AVF  services  (of  any  kind)  to  be  performed. 

A  formal  statement  from  a  customer  assuring  that  conformity 
is  realized  or  attainable  on  the  Ada  implementation  for 
which  validation  status  is  realized. 

A  computer  system  where  Ada  source  programs  are  transformed 
into  executable  form. 

A  test  that  contains  one  or  more  test  objectives  found  to  be 
irrelevant  for  the  given  Ada  implementation. 

International  Organization  for  Standardization. 

The  Ada  standard,  or  Language  Reference  Manual ,  published  as 
ANSI/MIL-STD-1815A-1983  and  ISO  8652-1987.  Citations  from 
the  LRM  take  the  form  "<section>.<subsection>:<paragraph>." 

Software  that  controls  the  execution  of  programs  and  that 
provides  services  such  as  resource  allocation,  scheduling, 
input/output  control,  and  data  management.  Usually, 
operating  systems  are  predominantly  software,  but  partial  or 
complete  hardware  implementations  are  possible. 

A  computer  system  where  the  executable  form  of  Ada  programs 
are  executed. 


The  compiler  of  a  validated  Ada  implementation. 


An  Ada  implementation  that  has  been  validated  successfully 
either  by  AVF  testing  or  by  registration  [Pro901. 

The  process  of  checking  the  conformity  of  an  Ada  compiler  to 
the  Ada  programming  language  and  of  issuing  a  certificate 
for  this  implementation. 

A  test  found  to  be  incorrect  ?r,d  rot  used  in  conformity 
testing.  A  test  may  be  incorrect  because  it  has  an  invalid 
test  objective,  fails  to  meet  its  test  objective,  or 
contains  erroneous  or  illegal  use  of  the  Ada  programming 
language . 
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IMPLEMENTATION  DEPENDENCIES 


2.1  WITHDRAWN  TESTS 

The  following  tests  have  been  withdrawn  by  the  AVO.  The  rationale  for 
withdrawing  each  test  is  available  from  either  the  AVO  or  the  AVF.  The 
publication  date  for  this  list  of  withdrawn  tests  is  2  August  1991. 


E28005C 

B28006C 

C32203A 

C34006D 

C35508I 

C35508J 

C35508M 

C35508N 

C35702A 

C35702B 

B41308B 

C43004A 

C45114A 

C45346A 

C45612A 

C45612B 

C45612C 

C45651A 

C46022A 

B49008A 

B49008B 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

C83026A 

B83026B 

C83041A 

B85001L 

C86001F 

C94021A 

C97116A 

C98003B 

BA2011A 

CB7001A 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21E 

CD2A23E 

CD2A32A 

CD2A41A 

CD2A41E 

CD2A87A 

CD2B15C 

BD3006A 

BD4008A 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD4031A 

CD4051D 

CD5111A 

CD7004C 

ED7005D 

CD7005E 

AD7006A 

CD7006E 

AD7201A 

AD7201E 

CD7204B 

AD7206A 

BD8002A 

BD8004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

2.2  INAPPLICABLE  TESTS 

A  test  is  inapplicable  if  it  contains  test  objectives  which  are  irrelevant 
for  a  given  Ada  implementation.  Reasons  for  a  test's  inapplicability  may 
be  supported  by  documents  issued  by  the  ISO  and  the  AJPO  known  as  Ada 
Commentaries  and  commonly  referenced  in  the  format  Al-ddddd.  For  this 
implementation,  the  following  tests  were  determined  to  be  inapplicable  for 
the  reasons  indicated;  references  to  Ada  Commentaries  are  included  as 
appropriate. 
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The  following  285  tests  have  floating-point  type  declarations 
requiring  more  digits  than  SYSTEM. MAX_DIGITS: 


C24113F..Y  (20  tests) 
C35706F..Y  (20  tests) 
C35708F..Y  (20  tests) 
C45241F..Y  (20  tests) 
C45421F..Y  (20  tests) 
C45524F..Z  (21  tests) 
C45641F..Y  (20  tests) 


C35705F..Y  (20  tests) 
C35707F..Y  (20  tests) 
C35802F..Z  (21  tests) 
C45321F..Y  (20  tests) 
C45521F..Z  (21  tests) 
C45621F..Z  (21  tests) 
C46012F..Z  (21  tests) 


The  following  21  tests  check  for  the  predefined  type  SHORT_lNTEGER ; 
for  this  implementation,  there  is  no  such  type: 


C35404B 

C45412B 

C45611B 

B52004E 

CD7101E 


B36105C 

C45502B 

C45613B 

C55B07B 


C45231B 

C45503B 

C45614B 

B55B09D 


C45304B 

C45504B 

C45631B 

B86001V 


C45411B 

C45504E 

C45632B 

C86006D 


The  following  20  tests  check  for  the  predefined  type  LGNG_INTEGER;  for 
this  implementation,  there  is  no  such  type: 


C35404C 

C45502C 

C45613C 

C55B07A 


C45231C 

C45503C 

C45614C 

B55B09C 


C45304C 

C45504C 

C45631C 

B86001W 


C45411C 

C45504F 

C45632C 

C86006C 


C45412C 

C45611C 

B52004D 

CD7101F 


C35404D,  C45231D,  B86001X,  C86006E,  and  CD7101G  check  for  a  predefined 
integer  type  with  a  name  other  than  INTEGER,  LONG_INTEGER,  or 
SHORT_INTEGER ;  for  this  implementation,  there  is  no  such  type. 


C35713B,  C45423B,  B86001T,  and  C86006H  check  for  the  predefined  type 
SHORT_FLQAT;  for  this  implementation,  there  is  no  such  type. 

C35713D  and  B86001Z  check  for  a  predefined  floating-point  type  with  a 
name  other  than  FLOAT,  LONG_FLQAT,  or  SHORT_FLQAT ;  for  this 
implementation,  there  is  no  such  type. 


C45531M..P  and  C45532M..P  (8  tests)  check  fixed-point  operations  for 
types  that  require  a  SYSTEM. MAX_MANTISSA  of  47  or  greater;  for  this 
implementation,  MAX_MANTI SSA  is  less  than  47. 

C45536A,  C46013B,  C46031B,  C46033B,  and  C46034B  contain  length  clauses 
that  specify  values  for  'SMALL  that  are  not  powers  of  two  or  ten;  this 
implementation  does  not  support  such  values  for  'SMALL. 


C45624A. .B  (2  tests)  check  that  the  proper  exception  is  raised  if 
MACHlNE_OVERFLWS  is  FALSE  for  floating  point  types  and  the  results  of 
various  floating-point  operations  lie  outside  the  range  of  the  base 
type;  for  this  implementation,  MACHINE  OVERFLOWS  is  TRUE. 
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C4A013B  contains  a  static  universal  real  expression  that  exceeds  the 
range  of  this  implementation's  largest  floating-point  type;  this 
expression  is  rejected  by  the  compiler. 

B86001Y  uses  the  name  of  a  predefined  fixed-point  type  other  than  type 
DURATION;  for  this  implementation,  there  is  no  such  type. 

C96005B  uses  values  of  type  DURATION'S  base  type  that  are  outside  the 
range  of  type  DURATION;  for  this  implementation,  the  ranges  are  the 
same. 

CA2009A,  CA2009C..D  (2  tests),  CA2009F,  and  BC3009C  instantiate 
generic  units  before  their  bodies  are  compiled;  this  implementation 
requires  that  the  body  of  a  generic  unit  be  compiled  before  any 
instantiation  of  that  unit,  as  allowed  by  AI-00506.  (See  Section 
2.3.) 

LA3004A. .B,  EA3004C..D,  and  CA3004E..F  (6  tests)  check  pragma  INLINE 
for  procedures  and  functions;  this  implementation  does  not  support 
pragma  INLINE. 

CD1009C  checks  whether  a  length  clause  can  specify  a  non-default  size 
for  a  floating-point  type;  this  implementation  does  not  support  such 
sizes. 

CD2A84A,  CD2A84E,  CD2A84I..J  (2  tests),  and  CD2A840  use  length  clauses 
to  specify  non-default  sizes  for  access  types;  this  implementation 
does  not  support  such  sizes. 

BD8001A,  BD8003A,  BD8004A. .B  (2  tests),  and  AD8011A  use  machine  code 
insertions;  this  implementation  provides  no  package  MACHINE_CODE . 

The  following  264  tests  check  operations  on  sequential,  text,  and 
direct  access  files;  this  implementation  does  not  support  external 
files: 


CE2102A. .C 

(3) 

CE2102G..H 

(2) 

CE2102K 

CE2102N. .Y 

(12) 

CE2103C. .D 

(2) 

CE2104A. .D 

(4) 

CE2105A. .B 

(2) 

CE2106A. .B 

(2) 

CE2107A. .H 

(8) 

CE2107L 

CE2108A..H 

(8) 

CE2109A..C 

(3) 

CE2110A. .D 

(4) 

CE2111A. .1 

(9) 

CE2115A..B 

(2) 

CE2120A. .B 

(2) 

CE2201A. .C 

(3) 

EE2201D..E 

(2) 

CE2201F..N 

(9) 

CE2203A 

CE2204A. .D 

(4) 

CE2205A 

CE2206A 

CE2208B 

CE2401A. .C 

(3) 

EE2401D 

(2) 

EE2401G 

CE2401H. .L 

(5) 

CE2403A 

CE2404A. .B 

(2) 

CE2405B 

CE2406A 

CE2407A. .B 

(2) 

CE2408A. .B 

(2) 

CE2409A. .B 

(2) 

CE2410A.  .B 

(2) 

CE2411A 

CE3102A. .C 

(3) 

CE3102F. .H 

(3) 

CE3102J. .K 

(2) 

CE3103A 

CE3104A. .C 

(3) 

CE3106A. .B 

(2) 

CE3107B 

CE3108A. .B 

(2) 

CE3109A 

CE3110A 

CE3111A.  .B 

(2) 

CE3111D..E 

(2) 

CE3112A. .D 

(4) 

CE3114A. .B 

(2) 

CE3115A 

CE3119A 

EE3203A 

EE3204A 

CE3207A 

CE3208A 

CE3301A 

EE3301B 

CE3302A 

CE3304A 

CE3305A 

CE3401A 

CE3402A 

EE3402B 

CE3402C..D 

(2) 

CE3403A. .C 

(3) 
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CE3403E..F  (2) 
CE3405C..D  (2) 
CE3409A 
CE3410C..E  (3) 
CE3412A 
CE3602A. .D  (4) 
CE3606A..B  (2) 
CE3706D 
CE3806A. .B  (2) 
CE3905A. .C  (3) 


CE3404B..D  (3) 
CE3406A..D  (4) 
CE3409C..E  (3) 
EE3410F 
EE3412C 
CE3603A 
CE3704A. .F  (6) 
CE3706F..G  (2) 
CE3806D..E  (2) 
CE3905L 


CE3405A 

CE3407A. .C 

(3) 

EE3409F 

CE3411A 

CE3413A..C 

(3) 

CE3604A.  .B 

(2) 

CE3704M..O 

(3) 

CE3804A.  .P 

(16) 

CE3806G. .H 

(2) 

CE3906A.  .C 

(3) 

EE3405B 
CE3408A. .C  (3) 
CE341QA 
CE3411C 
CE3414A 
CE3605A. .E  (5) 
CE3705A. .E  (5) 
CE3805A. .B  (2) 
CE3904A. .B  (2) 
CE3906E..F  (2) 


CE2103A,  CE2103B,  and  CE3107A  use  an  illegal  file  name  in  an  attempt 
to  create  a  file  and  expect  NAME_ERROR  to  be  raised;  this 
implementation  does  not  support  external  files  and  so  raises 
USE  ERROR.  (See  Section  2.3.) 


2.3  TEST  MODIFICATIONS 

Modifications  (see  section  1.3)  were  required  for  23  tests. 

The  following  tests  were  split  into  two  or  more  tests  because  this 
implementation  did  not  report  the  violations  of  the  Ada  Standard  in  the 
way  expected  by  the  original  tests. 

B55A01A  BA1101E  BA3006A  BA3006B  BA3007B  BA3008A 

BA3008B  BA3013A  BC2001D  BC2001E 


CA2009A,  CA2009C..D  (2  tests),  CA2009F,  and  BC3009C  were  graded 
inapplicable  by  Evaluation  Modification  as  directed  by  the  AVO.  These 
tests  instantiate  generic  units  before  those  units'  bodies  are  compiled; 
this  implementation  rejects  a  unit  that  contains  an  instantiation  of  a 
unit  whose  body  is  not  in  the  program  library. 

BC3204C..D  (2  tests)  and  BC3205C..D  (2  tests)  were  graded  passed  by 
Processing  Modification  as  directed  by  the  AVO.  These  tests  check  that 
instantiations  of  generic  units  with  unconstrained  types  as  generic  actual 
parameters  are  illegal  if  the  generic  bodies  contain  uses  of  the  types 
that  require  a  constraint.  However,  the  generic  bodies  are  compiled  after 
the  units  that  contain  the  instantiations,  and  this  implementation  creates 
a  dependence  of  the  instantiating  units  on  the  generic  units  as  allowed  by 
AI-00408  and  AI-00506  such  that  the  compilation  of  the  generic  bodies 
makes  the  instantiating  units  obsolete — no  errors  are  detected.  The 
processing  of  these  tests  was  modified  by  re-compiling  the  obsolete  units; 
all  intended  errors  were  then  detected  by  the  compiler. 

AD7203B  was  graded  passed  by  Test  Modification  as  directed  by  the  AVO. 

This  implementation  allocates  16K  words  of  the  target  memory  for  task 
stacks;  by  default,  equal  amounts  of  storage  are  allocated  to  all  tasks. 
AD7203B  contains  8  tasks,  in  addition  to  the  environment  task;  since  the 
environment  task  requires  in  excess  of  2K  words,  STORAGE_ERROR  is  raised 
when  the  test  is  run.  The  test  was  modified  by  adding  a  'STORAGE  SIZE 
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length  clause  for  the  task  type  TSK  at  line  165  to  specify  an  allocation 
of  1024  storage  units  (words)  for  the  activation  of  each  task  of  the  type. 

CE2103A,  CE2103B,  and  CE3107A  were  graded  inapplicable  fcjy  Evaluation 
Modification  as  directed  by  the  AVO.  The  tests  abort  with  an  unhandled 
exception  when  USE_ERROR  is  raised  on  the  attempt  to  create  an  external 
file.  This  is  acceptable  behavior  because  this  implementation  does  not 
support  external  files,  (cf.  AI-00332). 
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PROCESSING  INFORMATION 


3.1  TESTING  ENVIRONMENT 

The  Ada  implementation  tested  in  this  validation  effort  is  described 
adequately  by  the  information  given  in  the  initial  pages  of  this  report. 

For  technical  and  sales  information  about  this  Ada  implementation,  contact: 

Uri  Gries 

Aitech  Defense  Systems  Inc. 

3080  Olcott  Street,  Suite  105A 
Santa  Clara,  CA  95054 
(408)  980-6200 


Testing  of  this  Ada  implementation  was  conducted  at  the  customer's  site  by 
a  validation  team  from  the  AVF. 


3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Implementation  passes  a  given  ACVC  version  if  it  processes  each  test 
of  the  customized  test  suite  in  accordance  with  the  Ada  Programming 
Language  Standard,  whether  the  test  is  applicable  or  inapplicable; 
otherwise,  the  Ada  Implementation  fails  the  ACVC  [Pro90]. 

For  all  processed  tests  (inapplicable  and  applicable),  a  result  was 
obtained  that  conforms  to  the  Ada  Programming  Language  Standard. 

The  list  of  items  below  gives  the  number  of  ACVC  tests  in  various 
categories.  All  tests  were  processed,  except  those  that  were  withdrawn 
because  of  test  errors  (item  b;  see  section  2.1),  those  that  require  a 
floating-point  precision  that  exceeds  the  implementation's  maximum 
precision  (item  e;  see  section  2.2),  and  those  that  depend  on  the  support 
of  a  file  system  —  if  none  is  supported  (item  d).  All  tests  passed, 
except  those  that  are  listed  in  sections  2.1  and  2.2  (counted  in  items  b 
and  f ,  below) . 
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a)  Total  Number  of  Applicable  Tests  3431 

b)  Total  Number  of  Withdrawn  Tests  95 

c)  Processed  Inapplicable  Tests  95 

d)  Non-Processed  I/O  Tests  264 

e)  Non-Processed  Floating-Point 

Precision  Tests  285 

f)  Total  Number  of  Inapplicable  Tests  644 


g)  Total  Number  of  Tests  for  ACVC  1.11  4170 


3.3  TEST  EXECUTION 


A  magnetic  tape  containing  the  customized  test  suite  (see  section  1.3)  was 
taken  on-site  by  the  validation  team  for  processing.  The  contents  of  the 
magnetic  tape  were  loaded  onto  the  host  computer  using  a  tape  drive 
connected  to  a  microVAX  II  computer  which  is  also  a  member  of  the  cluster. 

The  tests  were  compiled  and  linked  on  the  host  computer  system,  as 
appropriate.  The  executable  images  were  transferred  to  the  target  computer 
system  through  e the met  and  an  OPI  (Once  Protocol  Interface)  box 
manufactured  by  Aitech  and  run.  The  results  were  captured  on  the  host 
computer  system. 

Testing  was  performed  using  command  scripts  provided  by  the  customer  and 
reviewed  by  the  validation  team.  See  Appendix  B  for  a  complete  listing  of 
the  processing  options  for  this  implementation .  It  also  indicates  the 
default  options.  The  options  invoked  explicitly  for  validation  testing 
during  this  test  were: 


Option/Switch  Effect 


/lis 

/asm 

/verbose 


Produces  list  files, 
produces  asm  files. 
Shows  resources  used  by 
compilation. 


Test  output,  compiler  and  linker  listings,  and  job  logs  were  captured  on 
magnetic  tape  and  archived  at  the  AVF.  The  listings  examined  on-site  by 
the  validation  team  were  also  archived. 
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MACRO  PARAMETERS 


This  appendix  contains  the  macro  parameters  used  for  customizing  the  ACVC. 
The  meaning  and  purpose  of  these  parameters  are  explained  in  [UG89].  The 
parameter  values  are  presented  in  two  tables.  The  first  table  lists  the 
values  that  are  defined  in  terms  of  the  maximum  input-line  length,  which  is 
the  value  for  $MAX_IN_LEN — also  listed  here.  These  values  are  expressed 
here  as  Ada  string  aggregates,  where  "V"  represents  the  maximum  input-line 
length. 


Macro  Parameter 


Macro  Value 


$MAX_IN_LEN 

$BIG_ID1 

$BIG_ID2 

$BIG_ID3 

$BIG_ID4 


240  —  Value  of  V 

(1..V-1  ->  'A',  V  ->  '1') 

(1..V-1  ->  'A',  V  «>  '2') 

(1..V/2  «>  'A')  &  '3'  & 
(1..V-1-V/2  ->  'A' ) 

(1..V/2  ->  'A')  &  '4'  & 

( 1 . . V-l-V/2  ->  'A') 


$BIG_INT_LIT 

$BIG_REAL_LIT 

$BIG  STF.INOl 


(1..V-3  «>  '0')  &  "298" 
(1..V-5  ->  '0')  &  "690.0" 
«>  'A')  & 


$BIG_STRING2  &  (l..1 V-l-V/2  «>  'A')  &  '1'  & 

$BLANKS  (1..V-20  ->  '  ') 

$MAX  LEN  INT  BASED  LITERAL 

~  "2:"  &  (1..V-5  ->  '0')  &  "11:" 


$MAX  LEU  REAL  BASED  LITERAL 

"  "16:"  &  (1..V-7  ->  '0')  &  "F.E:" 


MACRO  PARAMETERS 


$MAX_STRING_LITERAL  &  (1..V-2  •>  'A' )  & 

The  following  table  lists  all  of  the  other  macro  parameters  and  their 
respective  values. 

Macro  Parameter  Macro  Value 

$ACC_SIZE  32 

$ALIGNMENT  1 

$COUNT_LAST  2_147_483_647 

$DEFAULT_MEM_SIZE  32768 

$DEFAULT_STOR_UNIT  32 

$DEFAULT_SYS_NAME  DSP96002 

$DELTA_DOC  2#1.0#E-31 

$  ENTRY_ADDRESS  16#400# 

$ENTRY_ADDRESS1  16#401# 

$ENTRY_ADDRESS2  16#402# 

$FIELD_LAST  50 

$  FI  LE_TERMINATOR  '  ' 

$FIXED_NAME  NO_SUCH_FIXED_TYPE 

$FLOAT_NAME  NO_SUCH_TYPE 

$  FORM_STRING  "" 

$  FORM_STRING2  " CANNOT_RESTRI CT_FI LE_CAPACI TY" 

$GREATER_THAN_DURATICN 

75_000.0 

$GREATER  THAN  DURATION  BASE  LAST 

T31_073.0 

SGREATER  THAN  FLOAT  BASE  LAST 

1.I0141E+38 

SGREATER  THAN_FLQAT  SAFE  LARGE 

1.TTE38 
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§GREATER_THAN_SHORT_FLQAT_SAFE_LARGE 

1.0E308 

$HIGH_PRIORITY  23 

$  I  LLEGAL_EXTERNAL_FILE_NAME1 

\NODI RECTOR Y\FILENAME 

$ I LLEGAL_EXTERNAL_FI LE_NAME2 

THI  S_FI  LE_NAME_I  S_TOO_LCNG_FOR_MY_S  YSTEM 

$ INAPPROPRIATE_LINE_LENGTH 

-1 

$  INAPPROPRIATE_PAGE_LENGTH 

-1 

$INCLUDE_PRAGMAl  PRAGMA  INCLUDE  ( "A28006D1  .ADA" ) 

$INCLUDE_PRAGMA2  PRAGMA  INCLUDE  ( "B28006F1 .ADA" ) 

$INTEGER_FIRST  -2147483648 

$ INTEGER_LAST  2147483647 

$INTEGER_LAST_PLUS_1  2147483648 

$INTERFACE_LANGUAGE  ASSEMBLER 

$LESS_THAN_DURATION  -75_000.0 

$LESS_THAN_DURATION_BASE  FIRST 

-lll_073.0 

$LINE_TERMINATOR  ASCI I . LF 

$LOW_PRIORITY  1 

$MACHINE_CODE_STATEMENT 

NULL; 

$MACHINE_CODE_TYPE  NO_SUCH_TYPE 

$MANTISSR  DOC  31 

$MAX_DIGITS  9 

$MAX_INT  2147483647 

$MAX_INT_PLUS_1  2_147_483_648 

$MIN_INT  -2147483648 

$NAME  NO_SUCH_TYPE_AVAI LABLE 
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$NAME_LIST  MC68020,  MC88000,  i860,  DSP96002 

$NAME_SPECIFICATIONl 

DISK$AWC_2 :( CROCKETTL .ACVCM . DEVELOPMENT ]X2120A;  1 
$NAME  SPECIFICATION 

DISK$AWC_2 :[ CROCKETTL  .ACVCM . DEVELOPMENT ]X2120B ; 1 
$NAME  SPECIFICATIONS 

DISK$AWC_2: [CROCKETTL. ACVCM. DEVELOPMENT ]X21 2 0C;1 
$NEG_BASED_INT  16#F000000E# 

$NEW_MEM_SIZE  65535 

$NEW_STOR_UNIT  32 

$NEW_SYS_NAME  MC88000 

$PAGE_TERMINATOR  ASCI I . FF 

$RECORD_DEFINITION  NEW  INTEGER; 

$RECORD_NAME  NO_SUCH_MACHINE_CODE_TYPE 

$TASK_SIZE  32 

$TASK_STORAGE_SIZE  1024 

$TICK  0.000J)01 

$VARIABLE_ADDRESS  16#0320# 

$VARIABLE_ADDRESS1  1610321# 

$VARIABLE_ADDRESS2  16#0322# 

$YOOR_PRAGMA  INTERFACE_PACKAGE 
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COMPILATION  SYSTEM  OPTIONS 


The  compiler  options  of  this  Ada  implementation,  as  described  in  this 
Appendix,  are  provided  by  the  customer,  unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  compiler  documentation  and 
not  to  this  report. 


LINKER  OPTIONS 

The  linker  options  of  this  Ada  implementation,  as  described  in  this 
Appendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  linker  documentation  and  not 
to  this  report. 


B-l 


attach 


OVERVIEW  AND  COHUAND  SUMMARY 


2.3.1  Ada  Cross-Compiler  (ADA96K) 


The  compiler  is  activated  using  the  command  ADA96K. 

Syntax:  AOA96K  [qualifiers]  <aource-file-name> 

Parameters:  sourca-file-nana 

Denotes  the  ffle  containing  the  source  text  for  the 
compilation.  If  no  file  type  is  given,  ADA  is  assumed. 

Qualifiers:  The  qualifiers  and  options  available  are  detailed  in  the 

following  table: 


Default 

/asmjist 

Generates  an  assembler  file  for  each 
compilation  unit  The  file  name  is  the  unit 
name  with  a  suffix  *_S*  or  *_B*  and  the 
file  type  is  ASM  . 

True 

/configuration 

Controls  various  parameters  of  the  list 

Internal 

file 

file  layout,  input  line  length,  etc. 

defaults 

/copy_source 

Saves  the  source  fOe  for  the  compilation 
in  the  library 

False 

/list 

Generates  a  list  file  for  the  compilation. 
The  file  name  is  that  of  the  source  file, 
with  file  type  .US 

False 

/library 

Compiles  the  unit(s)  into  the  given  library 

ADA96K 

UBRARY 

/optimize 

Controls  various  optimization  options 

False 

/reorder 

Activates  the  code  reordering  pass  of  the 
compiler 

False 

/suppress.ail 

Disables  generation  of  code  for  run-time 
checks 

False 

/trace 

Enables  generation  of  trace-back 
information 

False 

/verbose 

Outputs  information  during  compilation 

False 

/xref 

Generates  a  cross-reference  listing  in  the 
list  file 

False 
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2A*2  Program  Library  Manager  (PLM96K) 

The  interactive  program  library  manager  is  activated  using  the  command 

PLM96K. 

Syntax:  PLM96K  [/libr*ry-<library_n*m«>] 


Qualifiers:  /library-<library_name> 

This  optional  qualifier  sets  the  current  default  library  for  the 
PLM96K.  If  omitted,  the  default  program  library  defined  by 
the  logical  name  ADA96KJJBRARY  will  be  opened. 

Interactive  The  PLM96K  commands  and  options  are  detailed  in  the 
Commands:  following  table: 


-  .vsv.'" 

■  . ;  w  „  iiipescriii^i^Mi 

HP 

Create 

Creates  a  new  Ada  program  sublbrary 
or  root  Ibrary 

Nona 

Delete 

Deletes  the  given  unit(s)  from  the  current 
default  program  Ibrary 

None 

Show 

Displays  information  for  the  given  unit(s) 
tram  the  current  default  program  ibrary 

None 

Exit 

Leaves  the  program  Ibrary  manager 

None 

Help 

Displays  the  PLM96K  commands  and 
options 

None 

library 

Sets  the  current  default  program  ibrary 
for  the  PLM96K 

Show  the 
current  default 
Ibrary 

Type 

Displays  the  Ada  source  for  the  given 
unit(s)  from  the  current  defauft  program 
library 

None 
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^Command 

§§lllPi|Pllpillll§ 

Extract 

Creates  a  copy  of  the  stored  Ada  source 
for  the  given  unit(s)  in  the  current 
directory 

None 

Import 

Inserts  an  externally  generated 
compilation  unit  body  into  the  current 
default  program  Ibrary 

None 

Allocate 

Allocates  a  unit  number  for  an  externally 
generated  compilation  unit  body 

None 

Verify 

Checks  the  correctness  of  the  current 
default  program  Ibrary 

None 

2.3.3  Ada  Cross-Linker  (LNK96K) 

The  cross-linker  is  activated  using  the  command  LNK96K. 

Syntax:  LNK96K  (qualifiers]  <main-unit-najne> 

Parameters:  main-unit-oame 

Denotes  the  main  unit  for  the  Ada  program  to  be  linked. 
The  unit  given  must  be  a  parameterless  procedure. 

Qualifiers:  The  qualifier  and  options  available  are  detailed  in  the 

following  table: 


/flbrary 

Specifies  the  program  Ibrary  where  the 
main  and  its  required  units  will  be  looked 
for 

ADA96K 

LIBRARY 

/map 

Generates  a  map  file  for  the  link.  The  fie 
name  wi  be  the  main  unit  name,  with 
Retype  .MAP 

True 

aitech 


OVERVIEW  AND  COMMAND  SUMMARY 


Description 


'  -  '  "JS* 


/progress 

Outputs  information  during  the  link 
process 

False 

/tog 

Generates  a  log  file  for  the  link.  The  log 
file  name  can  be  given  in  the  command. 

If  not  given,  the  main  unit  name  will  be 
used,  with  file  type  .LOG 

False 

/diractives 

Uses  the  directives  in  the  given 
directives  file  to  guide  the  link  process 

None 

/target 

Specifies  the  target  identifier 

096  (ADS) 

/withjts 

Includes  the  required  modules  from  the 
RTS  in  the  link 

False 

/minimal_ 

its 

Includes  a  minimal,  single-task  RTS  in 
the  link 

False 

/gen_rts 

Generates  the  load  file  for  a  new  fully* 
configured  RTS  executable  image 

False 

/trace 

Enables  the  RTS  tracing  functions 

False 

/first. 

address 

Specifies  the  initial  memory  addresses 
for  X.  Y  and  P  spaces 

(800,800,400) 

/tast_ 

address 

Specifies  the  last  memory  addresses  for 

X.  Y,  and  P  spaces 

(7FFE.7FFE. 

FFFE) 

/rts_size 

Specifies  the  maximal  size  of  a  fully- 
configured  RTS  in  the  different  memory 
spaces 

(800,200, 

3C00) 

/external. 

module 

Indudes  the  given  object  file(s)  or 
modules  from  the  given  object  library  in 
the  link 

None 

/nags 

Controls  various  special  functions  of  the 
linker 

None 
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APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-dependent  conventions 
as  mentioned  in  Chapter  13  of  the  Ada  Standard,  and  to  certain  allowed 
restrictions  on  representation  clauses.  The  implementation-dependent 
characteristics  of  this  Ada  implementation,  as  described  in  this  Appendix, 
are  provided  by  the  customer.  Unless  specifically  noted  otherwise, 
references  in  this  Appendix  are  to  compiler  documentation  and  not  to  this 
report.  Implementation-specific  portions  of  the  package  STANDARD,  which 
are  not  a  part  of  Appendix  F,  are: 


package  STANDARD  is 

type  INTEGER  is  range  -2147483648  ..  2147483647; 

type  FLOAT  is  digits  6  range  -3.40282E+38  ..  3.40282E+38; 
type  LONG_FLOAT  is  digits  9  range 

-1 . 79769313E+308  ..  1.79769313E+308; 

type  DURATION  is  delta  2**-14  range  -131072.0  ..  131072.0; 
end  STANDARD; 
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Appendix  F  of  the  Ada  Reference  Manual 


This  appendix  describes  the  implementation-dependent  characteristics  of 
the  AI-ADA/96K  Cross-Compilation  System,  as  required  in  the 
Appendix  F  frame  of  the  Ada  Reference  Manual  (ANSI/MIL-STD-1815A). 


B.1  Implementation-Dependent  Pragmas 

The  following  implementation-dependent  pragmas  are  defined  in  the 
compiler 

•  suppress_ail 

•  interface_package 

•  extemal_subprogram_name 

For  detailed  information  on  the  use  of  these  pragmas,  refer  to  Section  6.8, 
,  Implementation-Dependent  Features.” 


B.2.  Implementation-Dependent  Attributes 

No  implementation-dependent  attributes  are  defined  for  this  version. 


B.3.  Package  SYSTEM 

The  specification  of  the  package  SYSTEM: 


package  SYSTEM  is 


type  ADDRESS 
ty pa  PRIORITY 


type  SAME 
SYSTEM  NAME: 
STORAGE  UNIT: 
MEMORY  SIZE: 
MIN  INf: 

MAX- INT : 
MAX_DIGITS : 
MAX  MANTISSA: 


is  new  INTEGER; 
is  range  X  ..  23; 

—  Priority  0  is  reserved  for  the  Null  Task 
—  Priority  24  is  reserved  for  System  Tasks 
—  Priorities  25.. 31  are  for  interrupts 
is  (MC68020, MC8S000, i860,  DSP96002); 


constant  NAME 
constant 
constant 
constant 
constant 
constant 
constant 


DSP 96002; 

-  32; 

-  32  *  1024; 

-  -2  147  483  647-1; 

-  2  T47  T83_547; 

-  f; 

-  31; 
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FIHE_DELTA:  constant  2.0  **  (-31); 

TICK?  constant  0.000_001; 

typo  IHTERFACE_LAHGUAGE  Is  (ASSEMBLER, C, RTS)  ; 

•nd  SYSTEM; 


B.4.  Representation  Clauses 
B.4.1  Length  Clauses 
The  following  kinds  of  length  dausss  are  supported: 
1 .  Size  specification:  Tsize 


Supported  as  described  in  ARM.  For  scalar  objects  residing  in  the 
frame,  the  smallest  possible  size  On  complete  words)  will  always  be 
chosen  by  the  compiler. 

2.  Specification  of  a  collection  size:  Tstoragejsize 

Specifies  the  number  of  storage  units  alocated  to  the  collection 
associated  with  access  type  T. 


3. 


Specification  of  task  size:  Tstoragejsize 


Specifies  foe  number  of  storage  units  allocated  for  each  activation  of 
a  task  of  type  T.  This  size  indudes  space  for  the  task’s  stack,  as 
well  as  some  RTS  overhead  (approximately  54  words). 


4.  Specification  of  small  for  a  fixed  point  type:  Tsmall 


B.4.2.  Enumeration  Representation  Clause 

Enumeration  representation  dauses  may  specify  representations  in  the 
range  of  the  predefined  type  INTEGER. 


B.4.3.  Record  Representation  Clause 


Record  representation  clauses  are  supported  as  detailed  in  Section  13.4 
of  the  ARM. 


B.5  Implementation-Dependent  Names  for 
Implementation-Dependent  Components 

None  defined  by  the  compiler. 


B.6  Address  Clauses 

Address  clauses  are  supported  for  objects  (variables  or  constants)  and 
task  entries  (linkage  to  hardware  interrupt);  refer  to  Chapter  16,  "AI-TCK 
Target  Configuration  Kit.” 

Address  clauses  for  objects  are  interpreted  as  absolute  addresses,  and 
code  is  generated  using  the  ORG  directive.  The  compiler  does  not  check 
for  possible  overlaps. 


B.7.  Unchecked  Conversion 

No  warning  is  issued  when  conversion  between  objects  of  different  sizes 
is  performed.  The  result  of  such  a  conversion  is  unpredictable. 


B.8.  Input-Output  Packages 

Input-Output  packages  are  supplied  with  the  AI-ADA/96K  Cross-Compiler 
System. 

Standard  Jnput  and  Standard_output  are  supported.  External  files  and  file 
objects  are  implementation  dependent,  and  therefore  are  handled  as 
specified  in  the  ARM. 
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B.8.1.  Specification  of  the  Package  Sequential  JO 

with  BASIC  10  TYPES; 
with  IO_EXCEPTlONS ; 
generic 

type  ELEMENT_TYPE  is  private; 
package  SEQUENTIAL  10  is 

type  FILE  TYPE  £s  limited  private; 
type  FILE~M0DE  is  (IN_FILE,  0UT_FILE) ; 

—  File  management 
procedure  CREATE  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MODI  OUT_FILE; 

NAME  :  in  STRING  FORM  :  in  STRING  ""); 

procedure  OPEN  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MODE; 

NAME  :  in  STRING; 

FORM  :  in  STRING  •")  ; 

procedure  CLOSE  (FILE  :  in  out  FILE  TYPE); 
procedure  DELETE  (FILE  ;  in  out  FILE_TYPE) ; 
procedure  RESET  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE_MODS)  ; 

procedure  RESET  (FILE  :  in  out  FILE_TYPE) ; 
function  MODE  (FILE  ;  in  FILE_TYPE)” return  FILE_MODE; 
function  NAME  (FILE  :  in  FILE_TYPE)  return  STRING; 

function  FORM  (FILE  :  in  FILE  TYPE)  return  STRING; 
function  ISjOPEN(FILE  :  in  FILE~TYPE)  return  BOOLEAN; 

—  input- and  output  operations 

procedure  READ  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  out  ELEHeNTJTYPE) ; 

procedure  WRITE  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  in  ELEMENT  TYPE); 
function  END  OF  FILE- (  FILE  :  in  FILE  TYPE) 
return  lOOlEAN;  ' 
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—  exceptions 

STATUS  ERROR  :  exception  renames 
10  EXCEPTIONS . STATUS_ERROR; 

MODeJERROR  :  exception  renames 
1 0_EXCEP  T I  ONS . MODE_ERROR; 

NAME  ERROR  :  exception  renames 
10  EXCEP  T I  ONS .  NAM£_ERROR  ; 

USE  ERROR  :  exception  renames 
10  EXCEPTIONS . OSE_ERROR; 

DEVI cS_ERROR  :  exception  renames 
10  EXCEPTIONS . DEVICE_ERROR; 

END  ERROR  :  exception  renames 
fO  EXCEPTIONS. END_ERROR; 

DATaJERROR  :  exception  renames 
IO_EXCEPTIONS . DATAJERROR; 

private 

type  FILEjnfPE  is  new  BAS IC_IO_TYPES .  FILE_TYPE  ; 
end  SEQUENTIAL  10; 


B.8J2.  Specification  for  Package  Direct  Input-Output 

with  BASIC  IO  TYPES; 
with  IO_EXCEPT IONS ; 

generic  _ 

type  ELEMENT  TYPE  is  private; 
package  DIRECT  10  is 
‘  type  FILE  Ttf&E  is  limited  private; 

type  FILE “MODE  is  (INJFILE,  INOUT  FILE,  OUT_FILE) ; 
type  COUNT  is  range  07.  INTEGER'  LAST; 
subtype  POSITIVE_COUNT  is  COUNT  range  1.  .COUNT 'LAST; 
—  File  management 

procedure  CREATE  < 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MODE  INOUT  FILE; 

NAME  :  in  STRlIfc  s-  — ;  ~ 

FORM  t  in  STRING  — ); 

procedure  OPEN  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MODS; 

NAME  :  in  STRING; 

FORM  >  in  STRING  :•  ”•); 

procedure  CLOSE  (FILE  :  in  out  FILE  TYPE); 
procedure  DELETE  (FILE  :  in  out  FILE_TYPE) ; 
procedure  RESET  (  ~ 
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PILE  :  in  out  PILE  TYPE; 
MODE  :  in  PILE  MODE) ; 


procedure  RESET  (PILE 
function  MODE  (PILE  : 
function  NAME  (PILE 
function  FORM  (FILE 
function  IS  OPEN (PILE 


:  in  out  PILE  TYPE) ; 
in  FILE  TYPE)” return  FILE  MODE; 
5  in  PILE  TYPE)  return  STRING; 

:  in  PILE  TYPE)  return  STRING; 

•  in  FILE- TYPE)  return  BOOLEAN; 


—  input  end  output  operations 


procedure  READ  ( 

FILE  :  in  PILE  TYPE; 

ITEM  ;  out  ELEHENT_TYPE; 

FROM  :  in  POSITIVE_COONT) ; 

procedure  READ  ( 

PILE  :  in  FILE_TYPE; 

ITEM  :  out  ELEMENT_TYPE) ; 

procedure  WRITE  ( 

PILE  s  in  FILE  TYPE; 

ITEM  :  in  ELEMENT  TYPE; 

TO  r  in  POSITTVSr_CODNT>  ; 

procedure  WRITE  ( 

PILE  :  in  PILE  TYPE; 

ITEM  s  in  ELEMENT_TYPE)  ; 

procedure  SET  INDEX ( 

PILE  :  in  #lLE  TYPE; 

TO  :  in  POSlTlVE_COUNT) ; 

function  INDEX (  TILE  ;  in  FILE_TYPE)  return 
POS ITIVE_COUNT ; 

function  SIZE  (PILE  :  in  PILE  TYPE)  return  COUNT; 
function  END  OP  PILE  (FILE  :  in  PILE_TYPE) 
return  B0^Lea!I; 


—  exceptions 

STATUS  ERROR  :  exception  renaaes 
10  OCCEPTIONS.  STATUS  JBRROR; 
MODE  iRROR  :  exception  renaaes 
I<5" EXCEPTIONS. MODE  ERROR; 
NAME'fcRROR  :  exception  renaaes 
X&  EXCEPTIONS . NAME  ERROR; 

USE  &ROR  :  exception  renaaes 
f&_EXCEPTIONS .  USE_ERROR; 
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DEVICE  ERROR  :  exception  rename 
10  EXCEPTIONS . DEVI CE_ERROR ; 

END  EXROR  :  exception  rename 
fb  EXCEPTIONS . END_ERROR; 

DATA  "ERROR  :  exception  rename 

I  (^EXCEPTIONS .  DATA_ERROR; 

private 

type  FILE_TYPE  la  new  BASIC_IO_TYPES.FILE_TYPE; 
end  DIRECT  10; 


B.8.3.  Specification  of  Package  Text  Input-Output 

with  BASIC  10  TYPES; 

with  IOJEXCEPTlONS; 

package  TEXT  10  la 

type  FILE_TY?E  la  Halted  private; 

type  FILE  MODE  la  (IN_FILE,  OUT  FILE); 

type  CODNT  la  range  0  ..  INTEGER' LAST; 

aubtype  POSITIVE_COUNT  la  COONT  range  1  ..  COUNT' LAST; 

UNBOUNDED:  conatant  COUNT:*  0;  —  line  and  page  length 
aubtype  FIELD  la  INTEGER  range  0  . .  35 ; 
aubtype  NUMBER  BASE  la  INTEGER  range  2  . .  16; 
type  TYPE_SET  Ta  (LOMER_jCASE,  UPPER_CASE) ; 

—  File  Management 

procedure  CREATE  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MOD?  OUT  FILE; 

NAME  :  in  STRlJfc 

FORM  :  in  STRING  •«); 

procedure  OPEN  ( 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MOD?; 

NAME  :  in  STRlSG; 

FORM  :  in  STRING  •")/ 

procedure  CLOSE  (FILE  :  in  out  FILE  TYPE) ; 
procedure  DELETE  (FILE  :  in  out  FILE~TYPE) ; 
procedure  RESET  (  " 

FILE  :  in  out  FILE  TYPE; 

MODE  :  in  FILE  MOD?); 
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procedure  RESET  (FILE  :  in  out  FILE  TYPE) ; 

function  MODE  (FILE  :  in  FILE  TYPE)  return 

“  FILE  MODE 

function  NAME  (FILE  :  in  FILE_TYPE)  return  STRING 

function  FORM  (FILE  :  in  FILE  TYPE)  return  STRING 

function  IS_OPEN(FILE  :  in  FILEjtYPE)  return  BOOLEAN 

—  Control  of  default  input  and  output  files 

procedure  SET  INPOT  (FILE  :  in  FILE  TYPE) ; 
procedure  SET-OUTPDT  (FILE  :  in  FILE- TYPE) ; 
function  STASft>ARD_INPUT  return  FILl_TYPE; 

function  STANDARD  OUTPUT  return  FILE_TYPE; 

function  CURRENTJTNPUT  return  FILE_TYPE; 

function  CORREN T_0 OTP 0 T  return  FILE_TYPE; 

—  specification  of  line  and  page  lengths 

a 

procedure  SET  LINE  LENGTH  ( 

FILE  :  in  FlXEjrfPE; 

TO  :  in  COUNT); 

procedure  SET  LINE  LENGTH  (TO  :  in  COUNT); 
.procedure  SET-PAGE— LENGTH  ( 

FILE  in  FILE  TYPE; 

TO  j  in  COUNT); 

procedure  SET  PAGE  LENGTH  (TO  :  in  COUNT); 
function  LINE_LEN<5TH  (FILE  :  in  FILEJTYPE) 

return  COUNT;  ~ 

function  LINE  LENGTH  return  COUNT; 
function  PAGE  LENGTH  (FILE  :  in  FILEJTYPE) 
return  COUNT; 

function  PAGE_LENGTH  return  COUNT; 

—  Column,  Line,  and  Page  Control 

procedure  NEW  LINE  ( 

FILE  :  in" FILE  TYPE; 

SPACING  :  in  POSlTlVE_COUNT  s-  1)  ; 

procedure  NEWSLINE  (SPACING  ;  in  POSITIVE_COUNT  1)  ; 

procedure  SKIP  LINE  ( 

FILE  :  in  ?ILE  TYPE; 

SPACING  :  in  POS  lTlVE_COUNT  1)  ; 

procedure  SKIP  LINE  (SPACING  :  in  POSITIVE  COUNT 

1); 

function  END  OF  LINE  (FILE  :  in  FILE  TYPE) 
return  BOOLEAN;- 
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function  END_OF_LINE  return  BOOLEAN; 

procedure  NEW_PAGE  (FILE  :  in  FILE_TYPE) ; 
procedure  NEW_PAGE  * 

procedure  SKIP_PAGE  (FILE  :  in  FILEJTYPE) ; 

procedure  S1CIPJPAGE  ' 

function  END  OF_PAGE  (FILE  :  in  FILEJTYPE) 
return  BOOLEAN; 

function  END_OFJPAGE  return  BOOLEAN; 

function  END  OF_FILE  (FILE  :  in  FILE_TYPE) 
return  BOOLEAN; 

function  END_OF_FILE  return  BOOLEAN; 

procedure  SET  COL  (FILE  :  in  FILEJTYPE; 

(TO  :  in  "POSITIVE_COONT> ; 

procedure  SET  COL  (TO  :  in  POSITlVE_CODNT) ; 
procedure  SET- LINE  (FILE  ;  in  FILEJTYPE; 

(TO  :  in- POSlTIVE_COONT) ; 

procedure  SET  LINE  (TO  :  in  POSITIVE  COONT) 
function  COL  (FILE  :  in  F I LE_TYP E ) 

return  POSITIVE_CODNT; 
function  COL  return  POSITIVE_COONT; 

function  LINE  (FILE  :  in  FILEJTYPE) 

return  POSITIVE_COONT;  _ 

function  LINE  return  POSITIVE_COONT; 

function  PAGE  (FILE  :  in  FILEJTYPE) 
return  POSITIVE  COONT; 
function  PAGE  ""return  POSITXVE_COONT; 


•  —  Character  Input -Output 

procedure  GET  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  out  CHARACTER) ; 

procedure  GET  (ITEM  :  out  CHARACTER); 

procedure  POT  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  in  CHARACTER) ;  _ • 

procedure  POT  (ITEM  in  CHARACTER) ; 
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—  String  Input-Output 

procedure  GST  ( 

FIXE  :  in  FILEJTYPE; 

ITEM  :  out  STRING); 

procedure  GET  (ITEM  :  out  STRING); 

procedure  ROT  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  in  STRING) ; 

procedure  POT  (ITEM  :  in  STRING); 
procedure  GET  LINE  ( 

FILE  :  in  FllE  TYPE; 

ITEM  :  out  STRING; 

LAST  :  out  NATURAL) ; 

procedure  GET  LINE  ( 

ITEM  :  out  SIRING; 

LAST  :  out  NATURAL) ; 

procedure  POT  LINE  ( 

FILE  :  in  fUEJTYPE; 

ITEM  :  in  STRING); 

procedure  POT_LINE  (ITEM  :  in  STRING); 

—  Generic  Package  for  Input -Output  of  Integer  Types 
generic 

type  NOM  la  range  O; 

package  INTEGER  10  is 
DEFAULT  WIDTH  1  FIELD  NOM' WIDTH; 

DEFAOLTJHASE  :  NUMBERJBASE  10; 

procedure  GET  ( 

FILE  :  in  FILEJTYPE; 

ITEM  :  out  NOM; 

WIDTH  :  in  FIELD  0); 

procedure  GET  ( 

ITEM  :  out  NOM; 

WIDTH  t  in  FIELD  0); 
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procedure  POT  < 

FILE  :  in  FILEJTYPE; 

ITEM  s  in  HUM?” 

WIDTH  :  in  FIELD  DEFAULT  WIDTH; 

BASE  :  in  NUMBER_BA5E  D£FAULT_BASE) ; 

procedure  PUT  ( 

ITEM  :  in  NOM; 

WIDTH  :  in  FIELD  DEFAULT  WIDTH; 

BASE  :  in  HUMBERJBASE  dEfAULT_BASE)  ; 

procedure  GET  ( 

FROM  :  in  STRING; 

ITEM  :  out  HUM; 

LAST  :  out  POSITIVE); 

procedure  PUT  ( 

TO  :  out  STRING; 

ITEM  :  in  NUM.- 

BASE  :  in  NUMBERJBASE  DEFADLT_BAS E ) ; 

end  INTEGER_IO; 

—  Generic  Package*  for  Input-Output  of  Reel  Types 
generic 

type  HUM  is  digits  <>; 
package  FLQAT__IO  is 

DEFAULT  FORE  :  FIELD  2; 

DEFAOLT”AFT  :  FIELD  NUM' digits  -  1; 

DEFAULT”EXP  s  FIELD  3; 

procedure  GET  ( 

FILE  :  in  FILE_TYPE; 

ITEM  :  out  HUM” 

WIDTH  :  in  FIELD  0); 

procedure  GET  ( 

ITEM  t  out  NUM; 

WIDTH  :  in  FIELD  0); 

procedure  PUT  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  in  NUM;” 

FORE  :  in  FIELD  DEFAULT  FORE; 

AFT  :  in  FIELD  DEFADLT"AFT; 

EXP  :  in  FIELD  DEFAULT  EXP); 
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procedure  POT  ( 

ITEM  :  in  MOM; 

FORE  :  In  FIELD  DEFAULT  FORE; 

AFT  :  in  FIELD  DEFAOLT_AFT; 

EXP  :  in  FIELD  DEFAULT JSXP) ; 

procedure  GET  ( 

FROM  :  in  STRING; 

ITEM  :  out  MOM; 

LAST  :  out  POSITIVE); 

procedure  POT  (TO  :  out  STRING; 

ITEM  :  in  MOM; 

AFT  :  in  FIELD  DEFAULT  AFT; 

EXP  :  in  FIELD  DEFADLT_EXP)  ; 

end  FLQAT_IO; 

generic 

typo  MOM  io  daltn  O; 
package  FIXED_IO  ia 

DEFAULT  FORE  :  FIELD  :•  MOM' FORE; 
DEFAOLT_AFT  t  FIELD  s-  MOM' AFT; 
DEFAULT  EXP  i  FIELD  0; 
procedure  GET  (FILE  t  in  FILE_TYPE; 
ITEM  J  out  MOM; 

WIDTH  :  in  FIELD  :*  0); 

procedure  GET  ( 

ITEM  t  out  MOM; 

WIDTH  :  in  FIELD  :•  0); 

procedure  POT  ( 

FILE  t  in  FILE  TYPE; 

ITEM  j  in  M0M;“ 

FORE  t  in  FIELD  DEFAULT  FORE; 
AFT  i  in  FIELD  s-  DEFAULT— ATT ; 
EXP  t  in  FIELD  DEFADLT_EXP ) ; 

procedure  POT  (ITEM  :  in  MOM; 

FORE  t  in  FIELD  DEFAULT  FORE; 
AFT  i  in  FIELD  DEFAULT-AFT; 

EXP  t  in  FIELD  DEFAULT_EXP ) ; 

procedure  GET  ( 

FROM  :  in  STRING; 

ITEM  :  out  MOM; 

LAST  t  out  POSITIVE); 
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procedure  POT  ( 

TO  :  oat  STRING; 

ITEM  :  in  MOM; 

AFT  x  iA  FIELD  x-  DEFAULT  ATT; 

XXP  :  in  FIELD  DEFADLT_EXP ) ; 

•nd  riXED_IO; 

—  Generic  package  for  Input-Output  of  Enuneration 
Typo* 

generic 

type  ENOM  is  (o) ; 
package  ENUMERATION  10  la 
DEFAULT  WIDTH  :  FIELD  0; 

DEFAOLT“SETTING  :  TYPE_3ET  0PPER_CASE; 

procedure  GET  ( 

FILE  :  in  FILE  TYPE; 

ITEM  :  out  ENUH) ; 

procedure  GET  (ITEM  :  out  ENOM) ; 
procedure  POT  ( 

FILE  :  in  FILE_TYPE; 

ITEM  t  in  ENOM; 

WIDTH  :  in  FIELD  :*  DEFAULT  WIDTH ; 

SET  s  in  TYPE_SET  :«■  DEFA0LT_3ETTIHG) ; 

procedure  POT  ( 

ITEM  x  in  ENOM; 

WIDTH  :  in  FIELD  DEFAULT_WIDTH ; 

SET  x  in  TYPE_SET  DEFAOLT~SETTING) ; 

procedure  GET  (FROM  :  in  STRING; 

ITEM  :  out  ENOM; 

LAST  x  out  POSITIVE); 

procedure  POT  (TO  :  out  STRING; 

ITEM  x  in  ENOM;  _ 

SET  :  in  TYPB_SET  j-  DEFAOLT_SETTING) ; 

end  ENUMERATION  10; 
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—  Excaption* 

STATUS  ERROR  :  exception  renames 
10  ffiCCEPTIONS.STATUS_ERROR; 

•  MODE  "&RROR  :  exception  rename* 

I  (^EXCEPTIONS .MODE  ERROR; 

NAME  ERROR  s'  exception  rename* 

I<5~ EXCEPTIONS. NAME  ERROR; 

USE  fRROR  :  exception  rename* 

fb  EXCEPTIONS . USE_ERROR; 

DEVICE  ERROR  :  exception  renames 
10  ffiCEPTIONS.DEVICE_ERROR; 

END  ERROR  :  exception  renames 

f&_EXCEPTIONS ,END_ERROR; 

DATA  ERROR  :  exception  renames 
EXCEPTIONS. DATA  ERROR; 

LAYOUT!-  ERROR  :  exception  rename* 
lOjfcXCEPTIONS .  LAY  OUT_ERROR  ; 

private 

type  PILE_TTPE  is  new  BAS  IC_IO_TYPES .  FILE_TYPE  ; 
end  TEXT  10; 
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